home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / lib / logolib / filter < prev    next >
Text File  |  1995-05-03  |  419b  |  11 lines

  1. to filter :filter.template :template.list [:template.number 1] ~
  2.           [:template.lists (list :template.list)]
  3. if emptyp :template.list [op :template.list]
  4. if apply :filter.template (list first :template.list) ~
  5.    [op combine (first :template.list) ~
  6.                (filter :filter.template bf :template.list :template.number+1)]
  7. op (filter :filter.template bf :template.list :template.number+1)
  8. end
  9.  
  10. bury "filter
  11.